Languguage OS 2/Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO/a_utils/perl/prlbkxmp.lha/ch5/commas.eg

Text File | 1991-01-08 | 168b | 10 lines

sub commas {
    local($_) = @_;
    1 while s/(.*\d)(\d\d\d)/$1,$2/;
    $_;
}
for ($i = 1; $i <= 1e15; $i *= 7) {
    $result = &commas($i);
    print "$result\n";
}